LABE:l OOOOOOOOOPRIKTEKOol/SlOOCC LX QB JtlC I / Kt AU > F ILF. bUURCE-K 1 LEsSYMBQL/PUNCH; END* 
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BEtilN REAL COMMON; 00010000 

X PUMCH/CANDE PKOGfl<AM, /4 - 7 1 , , 000 10 1 00 

CQMMENTJ * TITLE..I .B55.Q0/B57C0 .«ARK XIV, S-YSTtH.ii£LEA.i-C * OflQiOllC 

* FILE ID? SYMBOL/PUNCH TAPE ID: SYi^t3UL2/F IlEOOO $ OOOlOlll 

* THIS MATERIAL IS PRDPRIE.TAHY TQ BURKQUGHS CORPURATION * OOOlOUa 

* AND. IS KDJ TQ. B£ HEPaJlUUCED* USEDj. &R..illi.CLl3iiED.. * aoOlQUJ 

* EXCEPT IN ACCORDANCE WITH PROGRAM LKEnSE UR UPON * OOOlOlU 

* WRITTEN AUIHOHIZATION OF THE PATENT DIVISION OF * 00010115 
* B y.RMM.H s . ..c.MPJ..M.TJM.» PE.IRQlIf Mlc^liiAN u_ii2.^2,.. .* , .OOOiOiii 

* * 00010117 

* COPYRIGHT CO 1971# 19/'ii BURROUGHS CORPORATION * 00010118 
-.* AAl2Q2a6 _.AA18M^7__ „ . . _ *i Qa9lPli9 

FILE SOURCE DISK SERIAL (2»0*0); 00010200 

SAVE ARRAY ACO « 9] > B [ d 1 1] ; OOU10300 

.RI.AL AP>BP^HALFSIZ*SEQLOC>FINAlB*NAME>USERm^; „ ._ .. OQOiO^OO 

BOOLEAN SFLG; 00010500 

LABEL EOF; 00010600 

f * *********,*** *.*,* .*...* * * * *„*,.* .* * * *..*.* *,**.*. «.**.*.*.*.*.*..* * *.*.*. * * *..* **.*.* ±*.**..*_* ********** QQQ 1 Z Q Q. 
PROCEDURE DISKWAIT(I,A*S,D); VAL^E I#S,d7 REAL I'^/sVo] ARRAY ^[oT; 00010800 
COMMUNICATEC-8); 00010900 

..%.*-**.i!.±*.*. **.* * * *** * ** .* * * * * ,*,*..* *..*.* * ,* .*.*.,_*,* ,.**,.**..*.*.** .*. **.±*.. **f*»*********. ** •* *»• **0 Q0 1 .10 Q. 

PROCEDURE ti"(Xoutca#n»t)' value n»t> «eal a,n#t> communTcatEc -Ti) J oooViioo 

%********************************************************»****,^****^^m*^Q00ll200 
.REAL SIREAM PROC-EDU.R£ HDRif^Nli ULU.i...Jii _ _ .^ _„ _._ _ Q.Q.01.1.3.0Q 

BEGIN 00011500 

.-Susf; , 3csi..;.=.si-a-.xi ...-q.i.;.5LU-c f.i ui».i.=^xisi „_.. _ 043,1^.11.6 0.0. 

si:sf; H(Sii3Si+8); Di»»Lnc f; oss*wds; 00011700 

sit«F; N(si»»si*e)/ Di:sLoc hdr; usjsuds? oooiiaoo 

ENXJ STR£AM.. ERfl.C£UUR£ -Hfiai.— - 00"n900 

%**************************** ************it******************************00012000 
REAL stream PROCEDURE ADDrESSCAJ; 00012100 

BEJ3.IN S..L1,5!.A1 AQIlfi£iiLI.aSli.-_EJmi-. ,_,_ _ OOM^^gOQ 

X**************************************************** ************* ******000i2300 
STREAM PROCEDURE lE ADERC BP*NAME )# vALuE BP^nAmE; 00012*00 

.X * * * * * * .*.*.*..* * * *..**..* * *.* .*,*..* * *.*..*..*** * * *** ******_*******************************o.0,Ol25QO 
X PRODUCES LEADER OF ^ RQ, 7CHR, NAmE,'ch', lF ' ^5----^q--^q-"-- 00012600 

X BP IS ADDRDSS OF BCC] 00012700 

-.-. .a£fi.i!y - _ .„..„. .,,_., .. _ 0Q0i2ajQi3 

DIS^BP; DSl-lOLIT^OOOOOOOOO^^'S 00012900 

siisLOC name; sij»si + i; osj*7Chr; ooouooo 

0S«B4LLT''.J'.-*.l"^.„..Q.Sl.?A0_Ln:'.0"; „ „ „ OOOUiOO 

END STREAM PROCEDURE LEADER; 00013200 

%***************************** *.***4ik************************************o00l3300 

■ STJJEAM PROCEDURE TRAIlEH(BP ); VAL UE Bp; _ 0001.3400 

%***ilr********ilr*A*****A****ilr**i^«****«***«************************ir*******00 013500 

X PRODUCES 25 RUB QUTS FOR PAPER TAPE TRAILER 00013600 

BEGIN DIUBP; 0S»«25tlT"0"; END; _ OQ013700 

%**^i^,^l****■k^r^l^l^r*1r■k^,•tli,^,^,*^,■tc^•■k^^^^^l^,**il**^,1m*^l*■^,^n^*^t***^l**^,**^,^r^l***^^*^,■^n,^,^,^>^,QQQl'^QQQ 

STREAM PROCEDURE REFORMATC AP#BP, SFLU »HAlF SI ^* SEQLOC >F I NAlB ) * 00013900 

X*** **** ******************** *** * ******** *** in> *»******»****»****» * »*» *»**000 14000 
VALUE AP»BP#SFL6*HALFSU#S£QL0C; "" '" " OOOHlOO' 

X ROUTINE REFORMATS RECORDS FQR PAPER TAPE OUTPUT O00H200 

X^AFLG_iS TRUE IF A » SEQ UENCED F ILE ; ^ 00014300 

X AP IS ADDRESS OF ACOi'BP IS ADDRESS oF BCOJ 00014400 

X bEQLOC IS ADDRESS OF SEQUENCE FIElU In "A" 0001*500 

X FIN ALB IS ENDIN G ADCRESS OF OUTP UT CH ARACT ER STRING 000 14700 

BEGIN LOCAL N'DV; LABEL EXIT J "" ----- _- - -. 00014800 

siisAP; Dn»BP; dsjslit"^"; flPi»ui; 00014900 

_SFLGCIF SC GE_Q "0" THEN IF SC LE« "9" THEN; IF TOGGLE THEN 00015000 



• • 



IN 






30 

33 1 
13* 

as I 



CHARACTtH 

ds:=8Chr; 



CWARACTER 

...P.l,l5lL0.C N.'. 



,\IOr A OiaiT - SUPPRESS ZER05 

_ J3,ii. J. » a C fl H j_ J3, 18 8 1 c N > D S i « 7 F I L L J 



Di:=BP' 8CIF Sc-' 



THEN SllsSi+l ELSE DSJ=CHR); 



iCHfU); 



LND)3, 



Db:»wOS; 



:3s=«S3e33ssa:sss£S] 



BEGIN % 1ST CHARACTEH IS A DIGIT 
Si:=SEQLOC; 

E.NO _ 

ELSE 

BEGIN % 1ST 
Sll«SEQLa£.| 

sitsLOc n; 
end; 

.aPJ'Oli §1J.= AP.1J......1..0D. JifiJi....L-UJlP..- 

2(HALFSI2(IF SCs'.V THEN DSJaNUM ELSE DS 

DvtaDi; 5ii«ov; oi:aBp; Dn»»Di + i/ bp»»di; 

2 (HALF SiZ LSIiaSl- 1 j I F ,.iiC -AiEil- !! -..'l-IHEN, 

BEGIN SlJ=Sl + i; BP!=ii; JUMP fjUT 2 TO £XIT> 
EXIT: 

DI.r*B.P.i USl.=.SL..l.I.'!jC.r*1.0'!.J,. .._ 

ovisDi; su=LOc Dv; unaFiNAuB; 

END STREAM PROcEDURD REFORMAT' 

_% a a B s s s s s s » B » a s s a e s a b_» = s = s = s s * » s.s = ~ = 

A[0]JsB[0]taO; 

AP«xADDRESS(ACO]); 8P: =AODRESS ( bC J ; > SEdLQC ' =A(JURESS ( AL 9 ] ); 

.DlbKWAITii* AI*.ljl_ajLC.CJM.M.y.N..)_; L.ii£I Xif 5£GME.M 

NAME»=A[3]; USEHlaACai; 

FILL SOURCE WITH NAME*USER; 
I.F.jyAME»I6Jl2,]»!'lS.'' T14EM. .SF.LG.r«A.LA.3...i.ll.l.l5U, £LS.L 

BEGIN 

READ SEEKCSOURCECO]); 
SFLG ,,»= HDR(.S.QURt£*4,J*i36?6.j N£0 ,«; _ 

end; 

HALFSIZJalF SFLG THEN 36 ELSE 40; 

LE A 0£gxe p #..N A ML) J__T Wj(Jlui-tlLLQ.lf-d.lj -Xl.;_ _ _ 

DO BEGIN 

READ(S0URCE>10*AC*])CE0F]; 
-REfllB M A.IlA£j.aP^.S£UlAilAi i" S 1 1 !AL£.LiiSj.IJJiAL&ll 

Nl» CN»«FINALB-BP),C30;3) & NC30»33;153; X NyMBER 

TWX0UT(BC03#N*-n; 

E.N,D,.,. U.NT.J„L.,£A.LSE1., _ _ ,. .,._ . 

EOF J 

TRAILER(BP); TWX0UT(B[0],25*-n; 

END P_RO.GR AM. 

end; END. LAST CARO" ON OC'RDINq"'fAPE "~ 

scalestop * true; 

PASSMAC; 






of CHARACTERS 



% STOP SCALE OF LITERALS 



OOOliJiOO 
00015200 

.Q.Q_Oi530Q 
00015400 
00015500 

Q. go 1,56.00 

00015700 
00015800 

iiOiJ. 1.5 9.0.0 

00016000 
00016010 

. ooa.iM-aQ- 

00016200 
00016300 

.■■.XU^4.6a0 0- 
00016500 
00016600 

Bfl.aQ.i6.Z0_Q.. 

00016800 
00016900 

.Qaii.x.7o.ao 

00017100 
00017200 

.OOQ.1Z300 
00017400 
0001750C 

.00017600 

00017700 
00017800 

00018000 
00018100 
...QQ0jLa2M.... 
00018300 
00016400 

.QilQl.a5jDQ 

00018600 
00018700 

..OMia.a.Q..Q 

99V99999 
80090700 
80 090 800 



LABEL OOOOOOOOOPRIMEt<0017f>100CC LX fJB JfC f /Rt AD ; F 1 LE SOURCEF ILEsSYMBUL/PUMCH; END* 
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